Imports Microsoft.VisualBasic

Namespace MyDAO
    Public Class ConditionStringBuilder
        Inherits SqlStringBuilder

        Public Overrides Function Build() As MyStringBuilder
            Dim sql As New MyStringBuilder

            If Me.Condition IsNot Nothing Then
                'condition
                sql.AppendFormat(" ")
                sql.AppendFormat("where ")
                sql.AppendFormat(Me.Condition.ToString())
            End If

            Return sql
        End Function
    End Class
End Namespace
